home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / texsrc.arc / TEX9.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-09-14  |  45.1 KB  |  1,820 lines
  1. overlay "tex9"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. maincontrol () { /* 60 21 70 71 72 73 74 10 */ r_maincontrol 
  6.   integer t ; 
  7.   quarterword l ; 
  8.   eightbits c ; 
  9.   internalfont f ; 
  10.   halfword r ; 
  11.   halfword p ; 
  12.   integer k ; 
  13.   halfword q ; 
  14.   fourquarters i ; 
  15.   fourquarters j ; 
  16.   integer s ; 
  17.   boolean ligaturepres ; 
  18.   if ( eqtb [ 4063 ] .hh .v.RH != 0 ) 
  19.   begintokenli ( eqtb [ 4063 ] .hh .v.RH , 12 ) ; 
  20.   lab60: getxtoken () ; 
  21.   lab21: if ( interrupt != 0 ) 
  22.   if ( OKtointerrup ) 
  23.   {
  24.     backinput () ; 
  25.     {
  26.       if ( interrupt != 0 ) 
  27.       pauseforinst () ; 
  28.     } 
  29.     goto lab60 ; 
  30.   } 
  31.  
  32. #ifdef DEBUG
  33.   if ( panicking ) 
  34.   checkmem ( false ) ; 
  35. #endif /* DEBUG */
  36.   if ( eqtb [ 5303 ] .cint > 0 ) 
  37.   showcurcmdch () ; 
  38.   switch ( abs ( curlist .modefield ) + curcmd ) 
  39.   {case 112 : 
  40.   case 113 : 
  41.   case 168 : 
  42.     goto lab70 ; 
  43.     break ; 
  44.   case 117 : 
  45.     {
  46.       scancharnum () ; 
  47.       curchr = curval ; 
  48.       goto lab70 ; 
  49.     } 
  50.     break ; 
  51.   case 111 : 
  52.     if ( curlist .auxfield == 1000 ) 
  53.     goto lab74 ; 
  54.     else appspace () ; 
  55.     break ; 
  56.   case 165 : 
  57.   case 265 : 
  58.     goto lab74 ; 
  59.     break ; 
  60.   case 1 : 
  61.   case 101 : 
  62.   case 201 : 
  63.   case 11 : 
  64.   case 211 : 
  65.     ; 
  66.     break ; 
  67.   case 40 : 
  68.   case 140 : 
  69.   case 240 : 
  70.     {
  71.       do { getxtoken () ; 
  72.       } while ( ! ( curcmd != 10 ) ) ; 
  73.       goto lab21 ; 
  74.     } 
  75.     break ; 
  76.   case 15 : 
  77.     if ( itsallover () ) 
  78.     return ; 
  79.     break ; 
  80.   case 23 : 
  81.   case 122 : 
  82.   case 222 : 
  83.   case 70 : 
  84.   case 170 : 
  85.   case 270 : 
  86.   case 39 : 
  87.   case 45 : 
  88.   case 49 : 
  89.   case 149 : 
  90.   case 7 : 
  91.   case 107 : 
  92.   case 207 : 
  93.     reportillega () ; 
  94.     break ; 
  95.   case 8 : 
  96.   case 108 : 
  97.   case 9 : 
  98.   case 109 : 
  99.   case 18 : 
  100.   case 118 : 
  101.   case 69 : 
  102.   case 169 : 
  103.   case 51 : 
  104.   case 151 : 
  105.   case 16 : 
  106.   case 116 : 
  107.   case 50 : 
  108.   case 150 : 
  109.   case 53 : 
  110.   case 153 : 
  111.   case 66 : 
  112.   case 166 : 
  113.   case 54 : 
  114.   case 154 : 
  115.   case 55 : 
  116.   case 155 : 
  117.   case 57 : 
  118.   case 157 : 
  119.   case 56 : 
  120.   case 156 : 
  121.   case 31 : 
  122.   case 131 : 
  123.   case 52 : 
  124.   case 152 : 
  125.   case 29 : 
  126.   case 129 : 
  127.   case 47 : 
  128.   case 147 : 
  129.   case 210 : 
  130.   case 214 : 
  131.   case 215 : 
  132.   case 228 : 
  133.   case 225 : 
  134.   case 234 : 
  135.   case 237 : 
  136.     insertdollar () ; 
  137.     break ; 
  138.   case 37 : 
  139.   case 136 : 
  140.   case 236 : 
  141.     {
  142.       {
  143.     mem [(long) curlist .tailfield ] .hh .v.RH = scanrulespec () ; 
  144.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  145.       } 
  146.       if ( abs ( curlist .modefield ) == 1 ) 
  147.       curlist .auxfield = - 65536000 ; 
  148.       else if ( abs ( curlist .modefield ) == 101 ) 
  149.       curlist .auxfield = 1000 ; 
  150.     } 
  151.     break ; 
  152.   case 28 : 
  153.   case 127 : 
  154.   case 227 : 
  155.   case 229 : 
  156.     appendglue () ; 
  157.     break ; 
  158.   case 30 : 
  159.   case 130 : 
  160.   case 230 : 
  161.   case 231 : 
  162.     appendkern () ; 
  163.     break ; 
  164.   case 2 : 
  165.   case 102 : 
  166.     newsavelevel ( 1 ) ; 
  167.     break ; 
  168.   case 62 : 
  169.   case 162 : 
  170.   case 262 : 
  171.     newsavelevel ( 14 ) ; 
  172.     break ; 
  173.   case 63 : 
  174.   case 163 : 
  175.   case 263 : 
  176.     if ( curgroup == 14 ) 
  177.     unsave () ; 
  178.     else offsave () ; 
  179.     break ; 
  180.   case 3 : 
  181.   case 103 : 
  182.   case 203 : 
  183.     handlerightb () ; 
  184.     break ; 
  185.   case 22 : 
  186.   case 123 : 
  187.   case 223 : 
  188.     {
  189.       t = curchr ; 
  190.       scandimen ( false , false , false ) ; 
  191.       if ( t == 0 ) 
  192.       savestack [ saveptr + 0 ] .cint = curval ; 
  193.       else savestack [ saveptr + 0 ] .cint = - curval ; 
  194.       scanbox () ; 
  195.     } 
  196.     break ; 
  197.   case 32 : 
  198.   case 132 : 
  199.   case 232 : 
  200.     {
  201.       savestack [ saveptr + 0 ] .cint = 1073742237 + curchr ; 
  202.       scanbox () ; 
  203.     } 
  204.     break ; 
  205.   case 21 : 
  206.   case 121 : 
  207.   case 221 : 
  208.     {
  209.       savestack [ saveptr + 0 ] .cint = 0 ; 
  210.       beginbox () ; 
  211.     } 
  212.     break ; 
  213.   case 44 : 
  214.     newgraf ( curchr > 0 ) ; 
  215.     break ; 
  216.   case 12 : 
  217.   case 13 : 
  218.   case 17 : 
  219.   case 68 : 
  220.   case 4 : 
  221.   case 24 : 
  222.   case 36 : 
  223.   case 46 : 
  224.   case 48 : 
  225.   case 27 : 
  226.   case 34 : 
  227.   case 65 : 
  228.     {
  229.       backinput () ; 
  230.       newgraf ( true ) ; 
  231.     } 
  232.     break ; 
  233.   case 144 : 
  234.   case 244 : 
  235.     indentinhmod () ; 
  236.     break ; 
  237.   case 14 : 
  238.     {
  239.       normalparagr () ; 
  240.       if ( curlist .modefield > 0 ) 
  241.       buildpage () ; 
  242.     } 
  243.     break ; 
  244.   case 114 : 
  245.     {
  246.       if ( alignstate < 0 ) 
  247.       offsave () ; 
  248.       endgraf () ; 
  249.       if ( curlist .modefield == 1 ) 
  250.       buildpage () ; 
  251.     } 
  252.     break ; 
  253.   case 115 : 
  254.   case 128 : 
  255.   case 137 : 
  256.   case 125 : 
  257.   case 133 : 
  258.     headforvmode () ; 
  259.     break ; 
  260.   case 38 : 
  261.   case 138 : 
  262.   case 238 : 
  263.   case 139 : 
  264.   case 239 : 
  265.     begininserto () ; 
  266.     break ; 
  267.   case 19 : 
  268.   case 119 : 
  269.   case 219 : 
  270.     makemark () ; 
  271.     break ; 
  272.   case 43 : 
  273.   case 143 : 
  274.   case 243 : 
  275.     appendpenalt () ; 
  276.     break ; 
  277.   case 26 : 
  278.   case 126 : 
  279.   case 226 : 
  280.     deletelast () ; 
  281.     break ; 
  282.   case 25 : 
  283.   case 124 : 
  284.   case 224 : 
  285.     unpackage () ; 
  286.     break ; 
  287.   case 145 : 
  288.     appenditalic () ; 
  289.     break ; 
  290.   case 245 : 
  291.     {
  292.       mem [(long) curlist .tailfield ] .hh .v.RH = newkern ( 0 ) ; 
  293.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  294.     } 
  295.     break ; 
  296.   case 148 : 
  297.   case 248 : 
  298.     appenddiscre () ; 
  299.     break ; 
  300.   case 146 : 
  301.     makeaccent () ; 
  302.     break ; 
  303.   case 6 : 
  304.   case 106 : 
  305.   case 206 : 
  306.   case 5 : 
  307.   case 105 : 
  308.   case 205 : 
  309.     alignerror () ; 
  310.     break ; 
  311.   case 35 : 
  312.   case 135 : 
  313.   case 235 : 
  314.     noalignerror () ; 
  315.     break ; 
  316.   case 64 : 
  317.   case 164 : 
  318.   case 264 : 
  319.     omiterror () ; 
  320.     break ; 
  321.   case 33 : 
  322.   case 134 : 
  323.     initalign () ; 
  324.     break ; 
  325.   case 233 : 
  326.     if ( privileged () ) 
  327.     initalign () ; 
  328.     break ; 
  329.   case 10 : 
  330.   case 110 : 
  331.     doendv () ; 
  332.     break ; 
  333.   case 67 : 
  334.   case 167 : 
  335.   case 267 : 
  336.     cserror () ; 
  337.     break ; 
  338.   case 104 : 
  339.     initmath () ; 
  340.     break ; 
  341.   case 249 : 
  342.     if ( privileged () ) 
  343.     starteqno () ; 
  344.     break ; 
  345.   case 202 : 
  346.     {
  347.       {
  348.     mem [(long) curlist .tailfield ] .hh .v.RH = newnoad () ; 
  349.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  350.       } 
  351.       backinput () ; 
  352.       scanmath ( curlist .tailfield + 1 ) ; 
  353.     } 
  354.     break ; 
  355.   case 212 : 
  356.   case 213 : 
  357.   case 268 : 
  358.     if ( curchr < 128 ) 
  359.     setmathchar ( eqtb [ 5139 + curchr ] .hh .v.RH ) ; 
  360.     else setmathchar ( curchr ) ; 
  361.     break ; 
  362.   case 217 : 
  363.     {
  364.       scancharnum () ; 
  365.       curchr = curval ; 
  366.       if ( curchr < 128 ) 
  367.       setmathchar ( eqtb [ 5139 + curchr ] .hh .v.RH ) ; 
  368.       else setmathchar ( curchr ) ; 
  369.     } 
  370.     break ; 
  371.   case 218 : 
  372.     {
  373.       scanfifteenb () ; 
  374.       setmathchar ( curval ) ; 
  375.     } 
  376.     break ; 
  377.   case 269 : 
  378.     setmathchar ( curchr ) ; 
  379.     break ; 
  380.   case 216 : 
  381.     {
  382.       scantwentyse () ; 
  383.       setmathchar ( curval / 4096 ) ; 
  384.     } 
  385.     break ; 
  386.   case 251 : 
  387.     {
  388.       {
  389.     mem [(long) curlist .tailfield ] .hh .v.RH = newnoad () ; 
  390.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  391.       } 
  392.       mem [(long) curlist .tailfield ] .hh.b0 = curchr ; 
  393.       scanmath ( curlist .tailfield + 1 ) ; 
  394.     } 
  395.     break ; 
  396.   case 252 : 
  397.     mathlimitswi () ; 
  398.     break ; 
  399.   case 266 : 
  400.     mathradical () ; 
  401.     break ; 
  402.   case 246 : 
  403.   case 247 : 
  404.     mathac () ; 
  405.     break ; 
  406.   case 257 : 
  407.     {
  408.       scanspec () ; 
  409.       newsavelevel ( 12 ) ; 
  410.       normalparagr () ; 
  411.       pushnest () ; 
  412.       curlist .modefield = - 1 ; 
  413.       curlist .auxfield = - 65536000 ; 
  414.       if ( eqtb [ 4062 ] .hh .v.RH != 0 ) 
  415.       begintokenli ( eqtb [ 4062 ] .hh .v.RH , 11 ) ; 
  416.     } 
  417.     break ; 
  418.   case 254 : 
  419.     {
  420.       mem [(long) curlist .tailfield ] .hh .v.RH = newstyle ( curchr ) ; 
  421.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  422.     } 
  423.     break ; 
  424.   case 256 : 
  425.     {
  426.       {
  427.     mem [(long) curlist .tailfield ] .hh .v.RH = newglue ( 0 ) ; 
  428.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  429.       } 
  430.       mem [(long) curlist .tailfield ] .hh.b1 = 98 ; 
  431.     } 
  432.     break ; 
  433.   case 255 : 
  434.     appendchoice () ; 
  435.     break ; 
  436.   case 209 : 
  437.   case 208 : 
  438.     subsup () ; 
  439.     break ; 
  440.   case 253 : 
  441.     mathfraction () ; 
  442.     break ; 
  443.   case 250 : 
  444.     mathleftrigh () ; 
  445.     break ; 
  446.   case 204 : 
  447.     if ( curgroup == 15 ) 
  448.     aftermath () ; 
  449.     else offsave () ; 
  450.     break ; 
  451.   case 71 : 
  452.   case 171 : 
  453.   case 271 : 
  454.   case 72 : 
  455.   case 172 : 
  456.   case 272 : 
  457.   case 73 : 
  458.   case 173 : 
  459.   case 273 : 
  460.   case 74 : 
  461.   case 174 : 
  462.   case 274 : 
  463.   case 75 : 
  464.   case 175 : 
  465.   case 275 : 
  466.   case 76 : 
  467.   case 176 : 
  468.   case 276 : 
  469.   case 77 : 
  470.   case 177 : 
  471.   case 277 : 
  472.   case 78 : 
  473.   case 178 : 
  474.   case 278 : 
  475.   case 79 : 
  476.   case 179 : 
  477.   case 279 : 
  478.   case 80 : 
  479.   case 180 : 
  480.   case 280 : 
  481.   case 81 : 
  482.   case 181 : 
  483.   case 281 : 
  484.   case 82 : 
  485.   case 182 : 
  486.   case 282 : 
  487.   case 83 : 
  488.   case 183 : 
  489.   case 283 : 
  490.   case 84 : 
  491.   case 184 : 
  492.   case 284 : 
  493.   case 85 : 
  494.   case 185 : 
  495.   case 285 : 
  496.   case 86 : 
  497.   case 186 : 
  498.   case 286 : 
  499.   case 87 : 
  500.   case 187 : 
  501.   case 287 : 
  502.   case 88 : 
  503.   case 188 : 
  504.   case 288 : 
  505.   case 89 : 
  506.   case 189 : 
  507.   case 289 : 
  508.   case 90 : 
  509.   case 190 : 
  510.   case 290 : 
  511.   case 91 : 
  512.   case 191 : 
  513.   case 291 : 
  514.   case 92 : 
  515.   case 192 : 
  516.   case 292 : 
  517.   case 93 : 
  518.   case 193 : 
  519.   case 293 : 
  520.   case 94 : 
  521.   case 194 : 
  522.   case 294 : 
  523.   case 95 : 
  524.   case 195 : 
  525.   case 295 : 
  526.   case 96 : 
  527.   case 196 : 
  528.   case 296 : 
  529.   case 97 : 
  530.   case 197 : 
  531.   case 297 : 
  532.   case 98 : 
  533.   case 198 : 
  534.   case 298 : 
  535.   case 99 : 
  536.   case 199 : 
  537.   case 299 : 
  538.   case 100 : 
  539.   case 200 : 
  540.   case 300 : 
  541.     prefixedcomm () ; 
  542.     break ; 
  543.   case 41 : 
  544.   case 141 : 
  545.   case 241 : 
  546.     {
  547.       gettoken () ; 
  548.       aftertoken = curtok ; 
  549.     } 
  550.     break ; 
  551.   case 42 : 
  552.   case 142 : 
  553.   case 242 : 
  554.     {
  555.       gettoken () ; 
  556.       saveforafter ( curtok ) ; 
  557.     } 
  558.     break ; 
  559.   case 61 : 
  560.   case 161 : 
  561.   case 261 : 
  562.     openorclosei () ; 
  563.     break ; 
  564.   case 59 : 
  565.   case 159 : 
  566.   case 259 : 
  567.     issuemessage () ; 
  568.     break ; 
  569.   case 58 : 
  570.   case 158 : 
  571.   case 258 : 
  572.     shiftcase () ; 
  573.     break ; 
  574.   case 20 : 
  575.   case 120 : 
  576.   case 220 : 
  577.     showwhatever () ; 
  578.     break ; 
  579.   case 60 : 
  580.   case 160 : 
  581.   case 260 : 
  582.     doextension () ; 
  583.     break ; 
  584.   } 
  585.   goto lab60 ; 
  586.   lab70: f = eqtb [ 4578 ] .hh .v.RH ; 
  587.   c = curchr ; 
  588.   lab71: if ( ( c < fontbc [ f ] ) || ( c > fontec [ f ] ) ) 
  589.   {
  590.     charwarning ( f , c ) ; 
  591.     goto lab60 ; 
  592.   } 
  593.   lab72: q = curlist .tailfield ; 
  594.   ligaturepres = false ; 
  595.   l = c ; 
  596.   lab73: if ( c < 128 ) 
  597.   {
  598.     s = eqtb [ 5011 + c ] .hh .v.RH ; 
  599.     if ( s == 1000 ) 
  600.     curlist .auxfield = 1000 ; 
  601.     else if ( s < 1000 ) 
  602.     {
  603.       if ( s > 0 ) 
  604.       curlist .auxfield = s ; 
  605.     } 
  606.     else if ( curlist .auxfield < 1000 ) 
  607.     curlist .auxfield = 1000 ; 
  608.     else curlist .auxfield = s ; 
  609.   } 
  610.   else curlist .auxfield = 1000 ; 
  611.   i = fontinfo [ charbase [ f ] + l ] .qqqq ; 
  612.   if ( ( i .b0 > 0 ) ) 
  613.   {
  614.     {
  615.       p = avail ; 
  616.       if ( p == 0 ) 
  617.       p = getavail () ; 
  618.       else { 
  619.     avail = mem [(long) p ] .hh .v.RH ; 
  620.     mem [(long) p ] .hh .v.RH = 0 ; 
  621.  
  622. #ifdef STAT
  623.     incr ( dynused ) ; 
  624. #endif /* STAT */
  625.       } 
  626.     } 
  627.     mem [(long) p ] .hh.b0 = f ; 
  628.     mem [(long) p ] .hh.b1 = c ; 
  629.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  630.     curlist .tailfield = p ; 
  631.   } 
  632.   else charwarning ( f , l ) ; 
  633.   getnext () ; 
  634.   if ( curcmd == 11 ) 
  635.   r = curchr ; 
  636.   else if ( curcmd == 12 ) 
  637.   r = curchr ; 
  638.   else if ( curcmd == 67 ) 
  639.   r = curchr ; 
  640.   else { 
  641.     xtoken () ; 
  642.     if ( ( curcmd == 11 ) || ( curcmd == 12 ) || ( curcmd == 67 ) ) 
  643.     r = curchr ; 
  644.     else if ( curcmd == 16 ) 
  645.     {
  646.       scancharnum () ; 
  647.       r = curval ; 
  648.     } 
  649.     else r = 256 ; 
  650.   } 
  651.   if ( ( ( i .b2 ) % 4 ) == 1 ) 
  652.   if ( r != 256 ) 
  653.   {
  654.     k = ligkernbase [ f ] + i .b3 ; 
  655.     do { j = fontinfo [ k ] .qqqq ; 
  656.       if ( j .b1 == r ) 
  657.       if ( j .b2 < 128 ) 
  658.       {
  659.     ligaturepres = true ; 
  660.     l = j .b3 ; 
  661.     c = r ; 
  662.     goto lab73 ; 
  663.       } 
  664.       else { 
  665.     if ( ligaturepres ) 
  666.     {
  667.       p = newligature ( f , l , mem [(long) q ] .hh .v.RH ) ; 
  668.       mem [(long) q ] .hh .v.RH = p ; 
  669.       curlist .tailfield = p ; 
  670.     } 
  671.     if ( c == hyphenchar [ f ] ) 
  672.     if ( curlist .modefield == 101 ) 
  673.     {
  674.       mem [(long) curlist .tailfield ] .hh .v.RH = newdisc () ; 
  675.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  676.     } 
  677.     {
  678.       mem [(long) curlist .tailfield ] .hh .v.RH = newkern ( fontinfo [ kernbase 
  679.       [ f ] + j .b3 ] .cint ) ; 
  680.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  681.     } 
  682.     c = r ; 
  683.     goto lab72 ; 
  684.       } 
  685.       incr ( k ) ; 
  686.     } while ( ! ( j .b0 >= 128 ) ) ; 
  687.   } 
  688.   if ( ligaturepres ) 
  689.   {
  690.     p = newligature ( f , l , mem [(long) q ] .hh .v.RH ) ; 
  691.     mem [(long) q ] .hh .v.RH = p ; 
  692.     curlist .tailfield = p ; 
  693.   } 
  694.   if ( c == hyphenchar [ f ] ) 
  695.   if ( curlist .modefield == 101 ) 
  696.   {
  697.     mem [(long) curlist .tailfield ] .hh .v.RH = newdisc () ; 
  698.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  699.   } 
  700.   if ( r == 256 ) 
  701.   goto lab21 ; 
  702.   c = r ; 
  703.   goto lab71 ; 
  704.   lab74: if ( eqtb [ 3538 ] .hh .v.RH == 0 ) 
  705.   {
  706.     {
  707.       p = fontglue [ eqtb [ 4578 ] .hh .v.RH ] ; 
  708.       if ( p == 0 ) 
  709.       {
  710.     f = eqtb [ 4578 ] .hh .v.RH ; 
  711.     p = newspec ( 0 ) ; 
  712.     k = parambase [ f ] + 2 ; 
  713.     mem [(long) p + 1 ] .cint = fontinfo [ k ] .cint ; 
  714.     mem [(long) p + 2 ] .cint = fontinfo [ k + 1 ] .cint ; 
  715.     mem [(long) p + 3 ] .cint = fontinfo [ k + 2 ] .cint ; 
  716.     fontglue [ f ] = p ; 
  717.       } 
  718.     } 
  719.     q = newglue ( p ) ; 
  720.   } 
  721.   else q = newparamglue ( 12 ) ; 
  722.   mem [(long) curlist .tailfield ] .hh .v.RH = q ; 
  723.   curlist .tailfield = q ; 
  724.   goto lab60 ; 
  725. } 
  726. giveerrhelp () { r_giveerrhelp 
  727.   tokenshow ( eqtb [ 4065 ] .hh .v.RH ) ; 
  728. } 
  729. boolean openfmtfile () { /* 40 10 */ register boolean Result; 
  730.   r_openfmtfile 
  731.   integer j ; 
  732.   j = curinput .locfield ; 
  733.   if ( buffer [ curinput .locfield ] == 38 ) 
  734.   {
  735.     incr ( curinput .locfield ) ; 
  736.     j = curinput .locfield ; 
  737.     buffer [ last ] = 32 ; 
  738.     while ( buffer [ j ] != 32 ) incr ( j ) ; 
  739.     packbuffered ( 0 , curinput .locfield , j - 1 ) ; 
  740.     if ( wopenin ( fmtfile ) ) 
  741.     goto lab40 ; 
  742.     wakeuptermin () ; 
  743.     fprintf( output , "%s%s\n",  "Sorry, I can't find that format;" , " will try PLAIN."     ) ; 
  744.     termflush ( output ) ; 
  745.   } 
  746.   packbuffered ( 5 , 1 , 0 ) ; 
  747.   if ( ! wopenin ( fmtfile ) ) 
  748.   {
  749.     wakeuptermin () ; 
  750.     fprintf( output , "%s\n",  "I can't find the PLAIN format file!" ) ; 
  751.     Result = false ; 
  752.     return(Result) ; 
  753.   } 
  754.   lab40: curinput .locfield = j ; 
  755.   Result = true ; 
  756.   return(Result) ; 
  757. } 
  758. boolean loadfmtfile () { /* 6666 10 */ register boolean Result; 
  759.   r_loadfmtfile 
  760.   integer j, k ; 
  761.   halfword p, q ; 
  762.   integer x ; 
  763.   fourquarters w ; 
  764.   getfmtint ( x ) ; 
  765.   if ( x != 13634946 ) 
  766.   goto lab6666 ; 
  767.   getfmtint ( x ) ; 
  768.   if ( x != 0 ) 
  769.   goto lab6666 ; 
  770.   getfmtint ( x ) ; 
  771.   if ( x != memtop ) 
  772.   goto lab6666 ; 
  773.   getfmtint ( x ) ; 
  774.   if ( x != 5976 ) 
  775.   goto lab6666 ; 
  776.   getfmtint ( x ) ; 
  777.   if ( x != 2551 ) 
  778.   goto lab6666 ; 
  779.   getfmtint ( x ) ; 
  780.   if ( x != 307 ) 
  781.   goto lab6666 ; 
  782.   {
  783.     getfmtint ( x ) ; 
  784.     if ( x < 0 ) 
  785.     goto lab6666 ; 
  786.     if ( x > poolsize ) 
  787.     {
  788.       wakeuptermin () ; 
  789.       fprintf( output , "%s%s\n",  "---! Must increase the " , "string pool size" ) ; 
  790.       goto lab6666 ; 
  791.     } 
  792.     else poolptr = x ; 
  793.   } 
  794.   {
  795.     getfmtint ( x ) ; 
  796.     if ( x < 0 ) 
  797.     goto lab6666 ; 
  798.     if ( x > maxstrings ) 
  799.     {
  800.       wakeuptermin () ; 
  801.       fprintf( output , "%s%s\n",  "---! Must increase the " , "max strings" ) ; 
  802.       goto lab6666 ; 
  803.     } 
  804.     else strptr = x ; 
  805.   } 
  806.   undumpthings ( strstart [ 0 ] , strptr + 1 ) ; 
  807.   undumpthings ( strpool [ 0 ] , poolptr ) ; 
  808.   {
  809.     getfmtint ( x ) ; 
  810.     if ( ( x < 1019 ) || ( x > memtop - 14 ) ) 
  811.     goto lab6666 ; 
  812.     else lomemmax = x ; 
  813.   } 
  814.   {
  815.     getfmtint ( x ) ; 
  816.     if ( ( x < 20 ) || ( x > lomemmax ) ) 
  817.     goto lab6666 ; 
  818.     else rover = x ; 
  819.   } 
  820.   p = 0 ; 
  821.   q = rover ; 
  822.   x = 0 ; 
  823.   do { undumpthings ( mem [(long) p ] , q + 2 - p ) ; 
  824.     p = q + mem [(long) q ] .hh .v.LH ; 
  825.     if ( ( p > lomemmax ) || ( ( q >= mem [(long) q + 1 ] .hh .v.RH ) && ( mem [(long) q + 
  826.     1 ] .hh .v.RH != rover ) ) ) 
  827.     goto lab6666 ; 
  828.     q = mem [(long) q + 1 ] .hh .v.RH ; 
  829.   } while ( ! ( q == rover ) ) ; 
  830.   undumpthings ( mem [(long) p ] , lomemmax + 1 - p ) ; 
  831.   if ( memmin < - 2 ) 
  832.   {
  833.     p = mem [(long) rover + 1 ] .hh .v.LH ; 
  834.     q = memmin + 1 ; 
  835.     mem [(long) memmin ] .hh .v.RH = 0 ; 
  836.     mem [(long) memmin ] .hh .v.LH = 0 ; 
  837.     mem [(long) p + 1 ] .hh .v.RH = q ; 
  838.     mem [(long) rover + 1 ] .hh .v.LH = q ; 
  839.     mem [(long) q + 1 ] .hh .v.RH = rover ; 
  840.     mem [(long) q + 1 ] .hh .v.LH = p ; 
  841.     mem [(long) q ] .hh .v.RH = 65535L ; 
  842.     mem [(long) q ] .hh .v.LH = - 0 - q ; 
  843.   } 
  844.   {
  845.     getfmtint ( x ) ; 
  846.     if ( ( x < lomemmax + 1 ) || ( x > memtop - 13 ) ) 
  847.     goto lab6666 ; 
  848.     else himemmin = x ; 
  849.   } 
  850.   {
  851.     getfmtint ( x ) ; 
  852.     if ( ( x < 0 ) || ( x > memtop ) ) 
  853.     goto lab6666 ; 
  854.     else avail = x ; 
  855.   } 
  856.   memend = memtop ; 
  857.   undumpthings ( mem [(long) himemmin ] , memend + 1 - himemmin ) ; 
  858.   getfmtint ( varused ) ; 
  859.   getfmtint ( dynused ) ; 
  860.   k = 1 ; 
  861.   do { getfmtint ( x ) ; 
  862.     if ( ( x < 1 ) || ( k + x > 5977 ) ) 
  863.     goto lab6666 ; 
  864.     undumpthings ( eqtb [ k ] , x ) ; 
  865.     k = k + x ; 
  866.     getfmtint ( x ) ; 
  867.     if ( ( x < 0 ) || ( k + x > 5977 ) ) 
  868.     goto lab6666 ; 
  869.     for ( j = k ; j <= k + x - 1 ; j ++ ) 
  870.     eqtb [ j ] = eqtb [ k - 1 ] ; 
  871.     k = k + x ; 
  872.   } while ( ! ( k > 5976 ) ) ; 
  873.   {
  874.     getfmtint ( x ) ; 
  875.     if ( ( x < 258 ) || ( x > 3258 ) ) 
  876.     goto lab6666 ; 
  877.     else parloc = x ; 
  878.   } 
  879.   partoken = 4096 + parloc ; 
  880.   {
  881.     getfmtint ( x ) ; 
  882.     if ( ( x < 258 ) || ( x > 3258 ) ) 
  883.     goto lab6666 ; 
  884.     else writeloc = x ; 
  885.   } 
  886.   {
  887.     getfmtint ( x ) ; 
  888.     if ( ( x < 258 ) || ( x > 3258 ) ) 
  889.     goto lab6666 ; 
  890.     else hashused = x ; 
  891.   } 
  892.   p = 257 ; 
  893.   do { { 
  894.       getfmtint ( x ) ; 
  895.       if ( ( x < p + 1 ) || ( x > hashused ) ) 
  896.       goto lab6666 ; 
  897.       else p = x ; 
  898.     } 
  899.     getfmthh ( hash [ p ] ) ; 
  900.   } while ( ! ( p == hashused ) ) ; 
  901.   undumpthings ( hash [ hashused + 1 ] , 3524 - hashused ) ; 
  902.   getfmtint ( cscount ) ; 
  903.   {
  904.     getfmtint ( x ) ; 
  905.     if ( x < 7 ) 
  906.     goto lab6666 ; 
  907.     if ( x > fontmemsize ) 
  908.     {
  909.       wakeuptermin () ; 
  910.       fprintf( output , "%s%s\n",  "---! Must increase the " , "font mem size" ) ; 
  911.       goto lab6666 ; 
  912.     } 
  913.     else fmemptr = x ; 
  914.   } 
  915.   undumpthings ( fontinfo [ 0 ] , fmemptr ) ; 
  916.   {
  917.     getfmtint ( x ) ; 
  918.     if ( x < 0 ) 
  919.     goto lab6666 ; 
  920.     if ( x > fontmax ) 
  921.     {
  922.       wakeuptermin () ; 
  923.       fprintf( output , "%s%s\n",  "---! Must increase the " , "font max" ) ; 
  924.       goto lab6666 ; 
  925.     } 
  926.     else fontptr = x ; 
  927.   } 
  928.   undumpthings ( fontsize [ 0 ] , fontptr + 1 ) ; 
  929.   undumpthings ( fontdsize [ 0 ] , fontptr + 1 ) ; 
  930.   undumpthings ( fontparams [ 0 ] , fontptr + 1 ) ; 
  931.   undumpthings ( hyphenchar [ 0 ] , fontptr + 1 ) ; 
  932.   undumpthings ( skewchar [ 0 ] , fontptr + 1 ) ; 
  933.   undumpthings ( fontname [ 0 ] , fontptr + 1 ) ; 
  934.   undumpthings ( fontarea [ 0 ] , fontptr + 1 ) ; 
  935.   undumpthings ( fontbc [ 0 ] , fontptr + 1 ) ; 
  936.   undumpthings ( fontec [ 0 ] , fontptr + 1 ) ; 
  937.   undumpthings ( charbase [ 0 ] , fontptr + 1 ) ; 
  938.   undumpthings ( widthbase [ 0 ] , fontptr + 1 ) ; 
  939.   undumpthings ( heightbase [ 0 ] , fontptr + 1 ) ; 
  940.   undumpthings ( depthbase [ 0 ] , fontptr + 1 ) ; 
  941.   undumpthings ( italicbase [ 0 ] , fontptr + 1 ) ; 
  942.   undumpthings ( ligkernbase [ 0 ] , fontptr + 1 ) ; 
  943.   undumpthings ( kernbase [ 0 ] , fontptr + 1 ) ; 
  944.   undumpthings ( extenbase [ 0 ] , fontptr + 1 ) ; 
  945.   undumpthings ( parambase [ 0 ] , fontptr + 1 ) ; 
  946.   {
  947.     getfmtint ( x ) ; 
  948.     if ( ( x < 0 ) || ( x > 307 ) ) 
  949.     goto lab6666 ; 
  950.     else hyphcount = x ; 
  951.   } 
  952.   for ( k = 1 ; k <= hyphcount ; k ++ ) 
  953.   {
  954.     {
  955.       getfmtint ( x ) ; 
  956.       if ( ( x < 0 ) || ( x > 307 ) ) 
  957.       goto lab6666 ; 
  958.       else j = x ; 
  959.     } 
  960.     {
  961.       getfmtint ( x ) ; 
  962.       if ( ( x < 0 ) || ( x > strptr ) ) 
  963.       goto lab6666 ; 
  964.       else hyphword [ j ] = x ; 
  965.     } 
  966.     {
  967.       getfmtint ( x ) ; 
  968.       if ( ( x < 0 ) || ( x > 65535L ) ) 
  969.       goto lab6666 ; 
  970.       else hyphlist [ j ] = x ; 
  971.     } 
  972.   } 
  973.   {
  974.     getfmtint ( x ) ; 
  975.     if ( x < 0 ) 
  976.     goto lab6666 ; 
  977.     if ( x > triesize ) 
  978.     {
  979.       wakeuptermin () ; 
  980.       fprintf( output , "%s%s\n",  "---! Must increase the " , "trie size" ) ; 
  981.       goto lab6666 ; 
  982.     } 
  983.     else triemax = x ; 
  984.   } 
  985.   undumpthings ( trie [ 0 ] , triemax + 1 ) ; 
  986.   {
  987.     getfmtint ( x ) ; 
  988.     if ( ( x < 0 ) || ( x > 255 ) ) 
  989.     goto lab6666 ; 
  990.     else trieopptr = x ; 
  991.   } 
  992.   undumpthings ( hyfdistance [ 1 ] , trieopptr - 0 ) ; 
  993.   undumpthings ( hyfnum [ 1 ] , trieopptr - 0 ) ; 
  994.   undumpthings ( hyfnext [ 1 ] , trieopptr - 0 ) ; 
  995.   {
  996.     getfmtint ( x ) ; 
  997.     if ( ( x < 0 ) || ( x > 3 ) ) 
  998.     goto lab6666 ; 
  999.     else interaction = x ; 
  1000.   } 
  1001.   {
  1002.     getfmtint ( x ) ; 
  1003.     if ( ( x < 0 ) || ( x > strptr ) ) 
  1004.     goto lab6666 ; 
  1005.     else formatident = x ; 
  1006.   } 
  1007.   getfmtint ( x ) ; 
  1008.   if ( ( x != 69069 ) || eof ( fmtfile ) ) 
  1009.   goto lab6666 ; 
  1010.   Result = true ; 
  1011.   return(Result) ; 
  1012.   lab6666: wakeuptermin () ; 
  1013.   fprintf( output , "%s\n",  "(Fatal format file error; I'm stymied)" ) ; 
  1014.   Result = false ; 
  1015.   return(Result) ; 
  1016. } 
  1017. closefilesan () { r_closefilesan 
  1018.   integer k ; 
  1019.   for ( k = 0 ; k <= 15 ; k ++ ) 
  1020.   if ( writeopen [ k ] ) 
  1021.   aclose ( writefile [ k ] ) ; 
  1022.  
  1023. #ifdef STAT
  1024.   if ( eqtb [ 5298 ] .cint > 0 ) 
  1025.   if ( jobname > 0 ) 
  1026.   {
  1027.     fprintf( logfile , "%c\n",  ' ' ) ; 
  1028.     fprintf( logfile , "%s%s\n",  "Here is how much of TeX's memory" , " you used:" ) ; 
  1029.     fprintf( logfile , "%c%ld%s",  ' ' , (long)(strptr - initstrptr) , " string" ) ; 
  1030.     if ( strptr != initstrptr + 1 ) 
  1031.     putc( 's' ,  logfile );
  1032.     fprintf( logfile , "%s%ld\n",  " out of " , (long)(maxstrings - initstrptr) ) ; 
  1033.     fprintf( logfile , "%c%ld%s%ld\n",  ' ' ,(long)( poolptr - initpoolptr) ,     " string characters out of " , (long)(poolsize - initpoolptr) ) ; 
  1034.     fprintf( logfile , "%c%ld%s%ld\n",  ' ' , 
  1035. (long)(lomemmax - memmin + memend - himemmin) + 2 ,
  1036.      " words of memory out of " , (long)(memend + 1 - memmin) ) ; 
  1037.     fprintf( logfile , "%c%ld%s%ld\n",  ' ' , (long)cscount ,
  1038.      " multiletter control sequences out of " , 3000L ) ; 
  1039.     fprintf( logfile , "%c%ld%s%ld%s",  ' ' , (long)fmemptr , " words of font info for " , (long)fontptr - 0     , " font" ) ; 
  1040.     if ( fontptr != 1 ) 
  1041.     putc( 's' ,  logfile );
  1042.     fprintf( logfile , "%s%ld%s%ld\n",  ", out of " , (long)fontmemsize ,
  1043.  " for " , (long)fontmax - 0 ) ; 
  1044.     fprintf( logfile , "%c%ld%s",  ' ' ,(long) hyphcount , " hyphenation exception" ) ; 
  1045.     if ( hyphcount != 1 ) 
  1046.     putc( 's' ,  logfile );
  1047.     fprintf( logfile , "%s%d\n",  " out of " , 307 ) ; 
  1048.     fprintf( logfile , "%c%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%c]",
  1049.   ' ' , (long)maxinstack , "i," ,(long) maxneststack , "n," ,    (long) maxparamstac , "p," , 
  1050. (long)maxbufstack + 1 , "b," ,(long) maxsavestack + 6 ,     
  1051.   "s stack positions out of " , (long)stacksize , "i," ,(long) nestsize , "n," ,
  1052.      (long)paramsize , "p," , (long)bufsize , "b," , (long)savesize , 's' ) ; 
  1053.   } 
  1054. #endif /* STAT */
  1055.   wakeuptermin () ; 
  1056.   while ( curs > - 1 ) { 
  1057.     if ( curs > 0 ) 
  1058.     {
  1059.       dvibuf [ dviptr ] = 142 ; 
  1060.       incr ( dviptr ) ; 
  1061.       if ( dviptr == dvilimit ) 
  1062.       dviswap () ; 
  1063.     } 
  1064.     else { 
  1065.       {
  1066.     dvibuf [ dviptr ] = 140 ; 
  1067.     incr ( dviptr ) ; 
  1068.     if ( dviptr == dvilimit ) 
  1069.     dviswap () ; 
  1070.       } 
  1071.       incr ( totalpages ) ; 
  1072.     } 
  1073.     decr ( curs ) ; 
  1074.   } 
  1075.   if ( totalpages == 0 ) 
  1076.   printnl ( 690 ) ; 
  1077.   else { 
  1078.     {
  1079.       dvibuf [ dviptr ] = 248 ; 
  1080.       incr ( dviptr ) ; 
  1081.       if ( dviptr == dvilimit ) 
  1082.       dviswap () ; 
  1083.     } 
  1084.     dvifour ( lastbop ) ; 
  1085.     lastbop = dvioffset + dviptr - 5 ; 
  1086.     dvifour ( 25400000 ) ; 
  1087.     dvifour ( 473628672 ) ; 
  1088.     preparemag () ; 
  1089.     dvifour ( eqtb [ 5284 ] .cint ) ; 
  1090.     dvifour ( maxv ) ; 
  1091.     dvifour ( maxh ) ; 
  1092.     {
  1093.       dvibuf [ dviptr ] = maxpush / 256 ; 
  1094.       incr ( dviptr ) ; 
  1095.       if ( dviptr == dvilimit ) 
  1096.       dviswap () ; 
  1097.     } 
  1098.     {
  1099.       dvibuf [ dviptr ] = maxpush % 256 ; 
  1100.       incr ( dviptr ) ; 
  1101.       if ( dviptr == dvilimit ) 
  1102.       dviswap () ; 
  1103.     } 
  1104.     {
  1105.       dvibuf [ dviptr ] = totalpages / 256 ; 
  1106.       incr ( dviptr ) ; 
  1107.       if ( dviptr == dvilimit ) 
  1108.       dviswap () ; 
  1109.     } 
  1110.     {
  1111.       dvibuf [ dviptr ] = totalpages % 256 ; 
  1112.       incr ( dviptr ) ; 
  1113.       if ( dviptr == dvilimit ) 
  1114.       dviswap () ; 
  1115.     } 
  1116.     while ( fontptr > 0 ) { 
  1117.       if ( fontused [ fontptr ] ) 
  1118.       dvifontdef ( fontptr ) ; 
  1119.       decr ( fontptr ) ; 
  1120.     } 
  1121.     {
  1122.       dvibuf [ dviptr ] = 249 ; 
  1123.       incr ( dviptr ) ; 
  1124.       if ( dviptr == dvilimit ) 
  1125.       dviswap () ; 
  1126.     } 
  1127.     dvifour ( lastbop ) ; 
  1128.     {
  1129.       dvibuf [ dviptr ] = 2 ; 
  1130.       incr ( dviptr ) ; 
  1131.       if ( dviptr == dvilimit ) 
  1132.       dviswap () ; 
  1133.     } 
  1134.     k = 4 + ( ( dvibufsize - dviptr ) % 4 ) ; 
  1135.     while ( k > 0 ) { 
  1136.       {
  1137.     dvibuf [ dviptr ] = 223 ; 
  1138.     incr ( dviptr ) ; 
  1139.     if ( dviptr == dvilimit ) 
  1140.     dviswap () ; 
  1141.       } 
  1142.       decr ( k ) ; 
  1143.     } 
  1144. #ifdef VMS
  1145. if((k=dviptr % 512) >0){
  1146.     k = 512-k;
  1147.     while ( k > 0 ) { 
  1148.       {
  1149.     dvibuf [ dviptr ] = 223 ; 
  1150.     incr ( dviptr ) ; 
  1151.     if ( dviptr == dvilimit ) 
  1152.     dviswap () ; 
  1153.       } 
  1154.       decr ( k ) ; 
  1155.     } 
  1156. }
  1157. #endif /* vms */
  1158.     if ( dvilimit == halfbuf ) 
  1159.     writedvi ( halfbuf , dvibufsize - 1 ) ; 
  1160.     if ( dviptr > 0 ) 
  1161.     writedvi ( 0 , dviptr - 1 ) ; 
  1162.     printnl ( 691 ) ; 
  1163.     print ( outputfilena ) ; 
  1164.     print ( 155 ) ; 
  1165.     printint ( totalpages ) ; 
  1166.     print ( 692 ) ; 
  1167.     if ( totalpages != 1 ) 
  1168.     printchar ( 115 ) ; 
  1169.     print ( 693 ) ; 
  1170.     printint ( dvioffset + dviptr ) ; 
  1171.     print ( 694 ) ; 
  1172.     bclose ( dvifile ) ; 
  1173.   } 
  1174.   if ( jobname > 0 ) 
  1175.   {
  1176.     putc('\n',  logfile );
  1177.     aclose ( logfile ) ; 
  1178.     selector = selector - 2 ; 
  1179.     if ( selector == 17 ) 
  1180.     {
  1181.       printnl ( 1120 ) ; 
  1182.       print ( logname ) ; 
  1183.       printchar ( 46 ) ; 
  1184.     } 
  1185.   } 
  1186.   println () ; 
  1187.   if ( ( editnamestar != 0 ) && ( interaction > 0 ) ) 
  1188.   calledit ( strpool , editnamestar , editnameleng , editline ) ; 
  1189. } 
  1190. finalcleanup () { /* 10 */ r_finalcleanup 
  1191.   smallnumber c ; 
  1192.   c = curchr ; 
  1193.   if ( jobname == 0 ) 
  1194.   openlogfile () ; 
  1195.   if ( curlevel > 1 ) 
  1196.   {
  1197.     printnl ( 40 ) ; 
  1198.     printesc ( 1121 ) ; 
  1199.     print ( 1122 ) ; 
  1200.     printint ( curlevel - 1 ) ; 
  1201.     printchar ( 41 ) ; 
  1202.   } 
  1203.   while ( condptr != 0 ) { 
  1204.     printnl ( 40 ) ; 
  1205.     printesc ( 1121 ) ; 
  1206.     print ( 1123 ) ; 
  1207.     printcmdchr ( 104 , curif ) ; 
  1208.     if ( ifline != 0 ) 
  1209.     {
  1210.       print ( 1124 ) ; 
  1211.       printint ( ifline ) ; 
  1212.     } 
  1213.     print ( 1125 ) ; 
  1214.     ifline = mem [(long) condptr + 1 ] .cint ; 
  1215.     curif = mem [(long) condptr ] .hh.b1 ; 
  1216.     condptr = mem [(long) condptr ] .hh .v.RH ; 
  1217.   } 
  1218.   if ( history != 0 ) 
  1219.   if ( ( ( history == 1 ) || ( interaction < 3 ) ) ) 
  1220.   if ( selector == 19 ) 
  1221.   {
  1222.     selector = 17 ; 
  1223.     printnl ( 1126 ) ; 
  1224.     selector = 19 ; 
  1225.   } 
  1226.   if ( c == 1 ) 
  1227.   {
  1228.  
  1229. #ifdef INITEX
  1230.     storefmtfile () ; 
  1231.     return ; 
  1232. #endif /* INITEX */
  1233.     printnl ( 1127 ) ; 
  1234.     return ; 
  1235.   } 
  1236. } 
  1237.  
  1238. #ifdef INITEX
  1239. initprim () { r_initprim 
  1240.   nonewcontrol = false ; 
  1241.   primitive ( 241 , 74 , 3526 ) ; 
  1242.   primitive ( 242 , 74 , 3527 ) ; 
  1243.   primitive ( 243 , 74 , 3528 ) ; 
  1244.   primitive ( 244 , 74 , 3529 ) ; 
  1245.   primitive ( 245 , 74 , 3530 ) ; 
  1246.   primitive ( 246 , 74 , 3531 ) ; 
  1247.   primitive ( 247 , 74 , 3532 ) ; 
  1248.   primitive ( 248 , 74 , 3533 ) ; 
  1249.   primitive ( 249 , 74 , 3534 ) ; 
  1250.   primitive ( 250 , 74 , 3535 ) ; 
  1251.   primitive ( 251 , 74 , 3536 ) ; 
  1252.   primitive ( 252 , 74 , 3537 ) ; 
  1253.   primitive ( 253 , 74 , 3538 ) ; 
  1254.   primitive ( 254 , 74 , 3539 ) ; 
  1255.   primitive ( 255 , 74 , 3540 ) ; 
  1256.   primitive ( 256 , 75 , 3541 ) ; 
  1257.   primitive ( 257 , 75 , 3542 ) ; 
  1258.   primitive ( 258 , 75 , 3543 ) ; 
  1259.   primitive ( 263 , 71 , 4057 ) ; 
  1260.   primitive ( 264 , 71 , 4058 ) ; 
  1261.   primitive ( 265 , 71 , 4059 ) ; 
  1262.   primitive ( 266 , 71 , 4060 ) ; 
  1263.   primitive ( 267 , 71 , 4061 ) ; 
  1264.   primitive ( 268 , 71 , 4062 ) ; 
  1265.   primitive ( 269 , 71 , 4063 ) ; 
  1266.   primitive ( 270 , 71 , 4064 ) ; 
  1267.   primitive ( 271 , 71 , 4065 ) ; 
  1268.   primitive ( 285 , 72 , 5267 ) ; 
  1269.   primitive ( 286 , 72 , 5268 ) ; 
  1270.   primitive ( 287 , 72 , 5269 ) ; 
  1271.   primitive ( 288 , 72 , 5270 ) ; 
  1272.   primitive ( 289 , 72 , 5271 ) ; 
  1273.   primitive ( 290 , 72 , 5272 ) ; 
  1274.   primitive ( 291 , 72 , 5273 ) ; 
  1275.   primitive ( 292 , 72 , 5274 ) ; 
  1276.   primitive ( 293 , 72 , 5275 ) ; 
  1277.   primitive ( 294 , 72 , 5276 ) ; 
  1278.   primitive ( 295 , 72 , 5277 ) ; 
  1279.   primitive ( 296 , 72 , 5278 ) ; 
  1280.   primitive ( 297 , 72 , 5279 ) ; 
  1281.   primitive ( 298 , 72 , 5280 ) ; 
  1282.   primitive ( 299 , 72 , 5281 ) ; 
  1283.   primitive ( 300 , 72 , 5282 ) ; 
  1284.   primitive ( 301 , 72 , 5283 ) ; 
  1285.   primitive ( 302 , 72 , 5284 ) ; 
  1286.   primitive ( 303 , 72 , 5285 ) ; 
  1287.   primitive ( 304 , 72 , 5286 ) ; 
  1288.   primitive ( 305 , 72 , 5287 ) ; 
  1289.   primitive ( 306 , 72 , 5288 ) ; 
  1290.   primitive ( 307 , 72 , 5289 ) ; 
  1291.   primitive ( 308 , 72 , 5290 ) ; 
  1292.   primitive ( 309 , 72 , 5291 ) ; 
  1293.   primitive ( 310 , 72 , 5292 ) ; 
  1294.   primitive ( 311 , 72 , 5293 ) ; 
  1295.   primitive ( 312 , 72 , 5294 ) ; 
  1296.   primitive ( 313 , 72 , 5295 ) ; 
  1297.   primitive ( 314 , 72 , 5296 ) ; 
  1298.   primitive ( 315 , 72 , 5297 ) ; 
  1299.   primitive ( 316 , 72 , 5298 ) ; 
  1300.   primitive ( 317 , 72 , 5299 ) ; 
  1301.   primitive ( 318 , 72 , 5300 ) ; 
  1302.   primitive ( 319 , 72 , 5301 ) ; 
  1303.   primitive ( 320 , 72 , 5302 ) ; 
  1304.   primitive ( 321 , 72 , 5303 ) ; 
  1305.   primitive ( 322 , 72 , 5304 ) ; 
  1306.   primitive ( 323 , 72 , 5305 ) ; 
  1307.   primitive ( 324 , 72 , 5306 ) ; 
  1308.   primitive ( 325 , 72 , 5307 ) ; 
  1309.   primitive ( 326 , 72 , 5308 ) ; 
  1310.   primitive ( 327 , 72 , 5309 ) ; 
  1311.   primitive ( 328 , 72 , 5310 ) ; 
  1312.   primitive ( 329 , 72 , 5311 ) ; 
  1313.   primitive ( 330 , 72 , 5312 ) ; 
  1314.   primitive ( 331 , 72 , 5313 ) ; 
  1315.   primitive ( 332 , 72 , 5314 ) ; 
  1316.   primitive ( 333 , 72 , 5315 ) ; 
  1317.   primitive ( 334 , 72 , 5316 ) ; 
  1318.   primitive ( 338 , 73 , 5701 ) ; 
  1319.   primitive ( 339 , 73 , 5702 ) ; 
  1320.   primitive ( 340 , 73 , 5703 ) ; 
  1321.   primitive ( 341 , 73 , 5704 ) ; 
  1322.   primitive ( 342 , 73 , 5705 ) ; 
  1323.   primitive ( 343 , 73 , 5706 ) ; 
  1324.   primitive ( 344 , 73 , 5707 ) ; 
  1325.   primitive ( 345 , 73 , 5708 ) ; 
  1326.   primitive ( 346 , 73 , 5709 ) ; 
  1327.   primitive ( 347 , 73 , 5710 ) ; 
  1328.   primitive ( 348 , 73 , 5711 ) ; 
  1329.   primitive ( 349 , 73 , 5712 ) ; 
  1330.   primitive ( 350 , 73 , 5713 ) ; 
  1331.   primitive ( 351 , 73 , 5714 ) ; 
  1332.   primitive ( 352 , 73 , 5715 ) ; 
  1333.   primitive ( 353 , 73 , 5716 ) ; 
  1334.   primitive ( 354 , 73 , 5717 ) ; 
  1335.   primitive ( 355 , 73 , 5718 ) ; 
  1336.   primitive ( 356 , 73 , 5719 ) ; 
  1337.   primitive ( 357 , 73 , 5720 ) ; 
  1338.   primitive ( 32 , 64 , 0 ) ; 
  1339.   primitive ( 47 , 44 , 0 ) ; 
  1340.   primitive ( 367 , 45 , 0 ) ; 
  1341.   primitive ( 368 , 89 , 0 ) ; 
  1342.   primitive ( 369 , 40 , 0 ) ; 
  1343.   primitive ( 370 , 41 , 0 ) ; 
  1344.   primitive ( 371 , 61 , 0 ) ; 
  1345.   primitive ( 372 , 16 , 0 ) ; 
  1346.   primitive ( 363 , 106 , 0 ) ; 
  1347.   primitive ( 373 , 15 , 0 ) ; 
  1348.   primitive ( 374 , 91 , 0 ) ; 
  1349.   primitive ( 364 , 66 , 0 ) ; 
  1350.   primitive ( 375 , 62 , 0 ) ; 
  1351.   hash [ 3260 ] .v.RH = 375 ; 
  1352.   eqtb [ 3260 ] = eqtb [ curval ] ; 
  1353.   primitive ( 376 , 101 , 0 ) ; 
  1354.   primitive ( 377 , 87 , 0 ) ; 
  1355.   primitive ( 378 , 76 , 0 ) ; 
  1356.   primitive ( 379 , 32 , 0 ) ; 
  1357.   primitive ( 380 , 36 , 0 ) ; 
  1358.   primitive ( 381 , 39 , 0 ) ; 
  1359.   primitive ( 198 , 37 , 0 ) ; 
  1360.   primitive ( 219 , 18 , 0 ) ; 
  1361.   primitive ( 382 , 46 , 0 ) ; 
  1362.   primitive ( 383 , 17 , 0 ) ; 
  1363.   primitive ( 384 , 54 , 0 ) ; 
  1364.   primitive ( 385 , 90 , 0 ) ; 
  1365.   primitive ( 386 , 34 , 0 ) ; 
  1366.   primitive ( 387 , 102 , 0 ) ; 
  1367.   primitive ( 203 , 55 , 0 ) ; 
  1368.   primitive ( 388 , 63 , 0 ) ; 
  1369.   primitive ( 273 , 83 , 0 ) ; 
  1370.   primitive ( 389 , 42 , 0 ) ; 
  1371.   primitive ( 390 , 79 , 0 ) ; 
  1372.   primitive ( 391 , 65 , 0 ) ; 
  1373.   primitive ( 392 , 95 , 0 ) ; 
  1374.   primitive ( 393 , 0 , 256 ) ; 
  1375.   hash [ 3265 ] .v.RH = 393 ; 
  1376.   eqtb [ 3265 ] = eqtb [ curval ] ; 
  1377.   primitive ( 394 , 97 , 0 ) ; 
  1378.   primitive ( 395 , 108 , 0 ) ; 
  1379.   primitive ( 272 , 70 , 0 ) ; 
  1380.   primitive ( 220 , 38 , 0 ) ; 
  1381.   primitive ( 396 , 33 , 0 ) ; 
  1382.   primitive ( 397 , 56 , 0 ) ; 
  1383.   primitive ( 398 , 35 , 0 ) ; 
  1384.   primitive ( 455 , 13 , 0 ) ; 
  1385.   parloc = curval ; 
  1386.   partoken = 4096 + parloc ; 
  1387.   primitive ( 487 , 103 , 0 ) ; 
  1388.   primitive ( 488 , 103 , 1 ) ; 
  1389.   primitive ( 489 , 109 , 0 ) ; 
  1390.   primitive ( 490 , 109 , 1 ) ; 
  1391.   primitive ( 491 , 109 , 2 ) ; 
  1392.   primitive ( 492 , 109 , 3 ) ; 
  1393.   primitive ( 493 , 109 , 4 ) ; 
  1394.   primitive ( 336 , 88 , 0 ) ; 
  1395.   primitive ( 359 , 88 , 1 ) ; 
  1396.   primitive ( 260 , 88 , 2 ) ; 
  1397.   primitive ( 261 , 88 , 3 ) ; 
  1398.   primitive ( 526 , 78 , 101 ) ; 
  1399.   primitive ( 527 , 78 , 1 ) ; 
  1400.   primitive ( 528 , 81 , 0 ) ; 
  1401.   primitive ( 529 , 81 , 1 ) ; 
  1402.   primitive ( 530 , 82 , 1 ) ; 
  1403.   primitive ( 531 , 82 , 3 ) ; 
  1404.   primitive ( 532 , 82 , 2 ) ; 
  1405.   primitive ( 533 , 69 , 0 ) ; 
  1406.   primitive ( 534 , 69 , 1 ) ; 
  1407.   primitive ( 535 , 69 , 2 ) ; 
  1408.   primitive ( 592 , 107 , 0 ) ; 
  1409.   primitive ( 593 , 107 , 1 ) ; 
  1410.   primitive ( 594 , 107 , 2 ) ; 
  1411.   primitive ( 595 , 107 , 3 ) ; 
  1412.   primitive ( 596 , 107 , 4 ) ; 
  1413.   primitive ( 597 , 107 , 5 ) ; 
  1414.   primitive ( 613 , 104 , 0 ) ; 
  1415.   primitive ( 614 , 104 , 1 ) ; 
  1416.   primitive ( 615 , 104 , 2 ) ; 
  1417.   primitive ( 616 , 104 , 3 ) ; 
  1418.   primitive ( 617 , 104 , 4 ) ; 
  1419.   primitive ( 618 , 104 , 5 ) ; 
  1420.   primitive ( 619 , 104 , 6 ) ; 
  1421.   primitive ( 620 , 104 , 7 ) ; 
  1422.   primitive ( 621 , 104 , 8 ) ; 
  1423.   primitive ( 622 , 104 , 9 ) ; 
  1424.   primitive ( 623 , 104 , 10 ) ; 
  1425.   primitive ( 624 , 104 , 11 ) ; 
  1426.   primitive ( 625 , 104 , 12 ) ; 
  1427.   primitive ( 626 , 104 , 13 ) ; 
  1428.   primitive ( 627 , 104 , 14 ) ; 
  1429.   primitive ( 628 , 104 , 15 ) ; 
  1430.   primitive ( 629 , 104 , 16 ) ; 
  1431.   primitive ( 630 , 105 , 2 ) ; 
  1432.   hash [ 3262 ] .v.RH = 630 ; 
  1433.   eqtb [ 3262 ] = eqtb [ curval ] ; 
  1434.   primitive ( 631 , 105 , 4 ) ; 
  1435.   primitive ( 632 , 105 , 3 ) ; 
  1436.   primitive ( 654 , 86 , 0 ) ; 
  1437.   hash [ 3268 ] .v.RH = 654 ; 
  1438.   eqtb [ 3268 ] = eqtb [ curval ] ; 
  1439.   primitive ( 751 , 4 , 128 ) ; 
  1440.   primitive ( 752 , 5 , 129 ) ; 
  1441.   hash [ 3259 ] .v.RH = 752 ; 
  1442.   eqtb [ 3259 ] = eqtb [ curval ] ; 
  1443.   primitive ( 753 , 5 , 130 ) ; 
  1444.   hash [ 3263 ] .v.RH = 754 ; 
  1445.   hash [ 3264 ] .v.RH = 754 ; 
  1446.   eqtb [ 3264 ] .hh.b0 = 9 ; 
  1447.   eqtb [ 3264 ] .hh .v.RH = memtop - 11 ; 
  1448.   eqtb [ 3264 ] .hh.b1 = 1 ; 
  1449.   eqtb [ 3263 ] = eqtb [ 3264 ] ; 
  1450.   eqtb [ 3263 ] .hh.b0 = 114 ; 
  1451.   primitive ( 818 , 80 , 0 ) ; 
  1452.   primitive ( 819 , 80 , 1 ) ; 
  1453.   primitive ( 820 , 80 , 2 ) ; 
  1454.   primitive ( 821 , 80 , 3 ) ; 
  1455.   primitive ( 822 , 80 , 4 ) ; 
  1456.   primitive ( 823 , 80 , 5 ) ; 
  1457.   primitive ( 824 , 80 , 6 ) ; 
  1458.   primitive ( 825 , 80 , 7 ) ; 
  1459.   primitive ( 873 , 14 , 0 ) ; 
  1460.   primitive ( 874 , 14 , 1 ) ; 
  1461.   primitive ( 875 , 26 , 4 ) ; 
  1462.   primitive ( 876 , 26 , 0 ) ; 
  1463.   primitive ( 877 , 26 , 1 ) ; 
  1464.   primitive ( 878 , 26 , 2 ) ; 
  1465.   primitive ( 879 , 26 , 3 ) ; 
  1466.   primitive ( 880 , 27 , 4 ) ; 
  1467.   primitive ( 881 , 27 , 0 ) ; 
  1468.   primitive ( 882 , 27 , 1 ) ; 
  1469.   primitive ( 883 , 27 , 2 ) ; 
  1470.   primitive ( 884 , 27 , 3 ) ; 
  1471.   primitive ( 204 , 28 , 5 ) ; 
  1472.   primitive ( 208 , 29 , 1 ) ; 
  1473.   primitive ( 210 , 30 , 99 ) ; 
  1474.   primitive ( 902 , 21 , 1 ) ; 
  1475.   primitive ( 903 , 21 , 0 ) ; 
  1476.   primitive ( 904 , 22 , 1 ) ; 
  1477.   primitive ( 905 , 22 , 0 ) ; 
  1478.   primitive ( 274 , 20 , 0 ) ; 
  1479.   primitive ( 906 , 20 , 1 ) ; 
  1480.   primitive ( 907 , 20 , 2 ) ; 
  1481.   primitive ( 813 , 20 , 3 ) ; 
  1482.   primitive ( 908 , 20 , 4 ) ; 
  1483.   primitive ( 815 , 20 , 5 ) ; 
  1484.   primitive ( 909 , 20 , 105 ) ; 
  1485.   primitive ( 910 , 31 , 99 ) ; 
  1486.   primitive ( 911 , 31 , 100 ) ; 
  1487.   primitive ( 912 , 31 , 101 ) ; 
  1488.   primitive ( 913 , 31 , 102 ) ; 
  1489.   primitive ( 928 , 43 , 1 ) ; 
  1490.   primitive ( 929 , 43 , 0 ) ; 
  1491.   primitive ( 938 , 25 , 12 ) ; 
  1492.   primitive ( 939 , 25 , 11 ) ; 
  1493.   primitive ( 940 , 25 , 10 ) ; 
  1494.   primitive ( 941 , 23 , 0 ) ; 
  1495.   primitive ( 942 , 23 , 1 ) ; 
  1496.   primitive ( 943 , 24 , 0 ) ; 
  1497.   primitive ( 944 , 24 , 1 ) ; 
  1498.   primitive ( 45 , 47 , 1 ) ; 
  1499.   primitive ( 217 , 47 , 0 ) ; 
  1500.   primitive ( 975 , 48 , 0 ) ; 
  1501.   primitive ( 976 , 48 , 1 ) ; 
  1502.   primitive ( 719 , 50 , 16 ) ; 
  1503.   primitive ( 720 , 50 , 17 ) ; 
  1504.   primitive ( 721 , 50 , 18 ) ; 
  1505.   primitive ( 722 , 50 , 19 ) ; 
  1506.   primitive ( 723 , 50 , 20 ) ; 
  1507.   primitive ( 724 , 50 , 21 ) ; 
  1508.   primitive ( 725 , 50 , 22 ) ; 
  1509.   primitive ( 726 , 50 , 23 ) ; 
  1510.   primitive ( 728 , 50 , 26 ) ; 
  1511.   primitive ( 727 , 50 , 27 ) ; 
  1512.   primitive ( 977 , 51 , 0 ) ; 
  1513.   primitive ( 731 , 51 , 1 ) ; 
  1514.   primitive ( 732 , 51 , 2 ) ; 
  1515.   primitive ( 714 , 53 , 0 ) ; 
  1516.   primitive ( 715 , 53 , 2 ) ; 
  1517.   primitive ( 716 , 53 , 4 ) ; 
  1518.   primitive ( 717 , 53 , 6 ) ; 
  1519.   primitive ( 995 , 52 , 0 ) ; 
  1520.   primitive ( 996 , 52 , 1 ) ; 
  1521.   primitive ( 997 , 52 , 2 ) ; 
  1522.   primitive ( 998 , 52 , 3 ) ; 
  1523.   primitive ( 999 , 52 , 4 ) ; 
  1524.   primitive ( 1000 , 52 , 5 ) ; 
  1525.   primitive ( 729 , 49 , 30 ) ; 
  1526.   primitive ( 730 , 49 , 31 ) ; 
  1527.   hash [ 3261 ] .v.RH = 730 ; 
  1528.   eqtb [ 3261 ] = eqtb [ curval ] ; 
  1529.   primitive ( 1019 , 92 , 1 ) ; 
  1530.   primitive ( 1020 , 92 , 2 ) ; 
  1531.   primitive ( 1021 , 92 , 4 ) ; 
  1532.   primitive ( 1022 , 96 , 0 ) ; 
  1533.   primitive ( 1023 , 96 , 1 ) ; 
  1534.   primitive ( 1024 , 96 , 2 ) ; 
  1535.   primitive ( 1025 , 96 , 3 ) ; 
  1536.   primitive ( 1039 , 93 , 0 ) ; 
  1537.   primitive ( 1040 , 93 , 1 ) ; 
  1538.   primitive ( 1041 , 94 , 0 ) ; 
  1539.   primitive ( 1042 , 94 , 1 ) ; 
  1540.   primitive ( 1043 , 94 , 2 ) ; 
  1541.   primitive ( 1044 , 94 , 3 ) ; 
  1542.   primitive ( 1045 , 94 , 4 ) ; 
  1543.   primitive ( 1046 , 94 , 5 ) ; 
  1544.   primitive ( 1047 , 94 , 6 ) ; 
  1545.   primitive ( 280 , 84 , 4627 ) ; 
  1546.   primitive ( 284 , 84 , 5139 ) ; 
  1547.   primitive ( 281 , 84 , 4755 ) ; 
  1548.   primitive ( 282 , 84 , 4883 ) ; 
  1549.   primitive ( 283 , 84 , 5011 ) ; 
  1550.   primitive ( 337 , 84 , 5573 ) ; 
  1551.   primitive ( 277 , 85 , 4579 ) ; 
  1552.   primitive ( 278 , 85 , 4595 ) ; 
  1553.   primitive ( 279 , 85 , 4611 ) ; 
  1554.   primitive ( 793 , 98 , 0 ) ; 
  1555.   primitive ( 803 , 98 , 1 ) ; 
  1556.   primitive ( 1063 , 77 , 0 ) ; 
  1557.   primitive ( 1064 , 77 , 1 ) ; 
  1558.   primitive ( 143 , 99 , 0 ) ; 
  1559.   primitive ( 144 , 99 , 1 ) ; 
  1560.   primitive ( 145 , 99 , 2 ) ; 
  1561.   primitive ( 1073 , 99 , 3 ) ; 
  1562.   primitive ( 1074 , 60 , 1 ) ; 
  1563.   primitive ( 1075 , 60 , 0 ) ; 
  1564.   primitive ( 1076 , 58 , 0 ) ; 
  1565.   primitive ( 1077 , 58 , 1 ) ; 
  1566.   primitive ( 1083 , 57 , 4755 ) ; 
  1567.   primitive ( 1084 , 57 , 4883 ) ; 
  1568.   primitive ( 1085 , 19 , 0 ) ; 
  1569.   primitive ( 1086 , 19 , 1 ) ; 
  1570.   primitive ( 1087 , 19 , 2 ) ; 
  1571.   primitive ( 1088 , 19 , 3 ) ; 
  1572.   primitive ( 1129 , 59 , 0 ) ; 
  1573.   primitive ( 452 , 59 , 1 ) ; 
  1574.   writeloc = curval ; 
  1575.   primitive ( 1130 , 59 , 2 ) ; 
  1576.   primitive ( 1131 , 59 , 3 ) ; 
  1577.   primitive ( 1132 , 59 , 4 ) ; 
  1578.   nonewcontrol = true ; 
  1579. } 
  1580. #endif /* INITEX */
  1581.  
  1582. #ifdef DEBUG
  1583. debughelp () { /* 888 10 */ r_debughelp 
  1584.   integer k, l, m, n ; 
  1585.   while ( true ) { 
  1586.     wakeuptermin () ; 
  1587.     printnl ( 1128 ) ; 
  1588.     termflush ( output ) ; 
  1589.     m = getint();
  1590.     if ( m < 0 ) 
  1591.     return ; 
  1592.     else if ( m == 0 ) 
  1593.     dumpcore () ; 
  1594.     else { 
  1595.       n = getint();
  1596.       switch ( m ) 
  1597.       {case 1 : 
  1598.     printword ( mem [(long) n ] ) ; 
  1599.     break ; 
  1600.       case 2 : 
  1601.     printint ( mem [(long) n ] .hh .v.LH ) ; 
  1602.     break ; 
  1603.       case 3 : 
  1604.     printint ( mem [(long) n ] .hh .v.RH ) ; 
  1605.     break ; 
  1606.       case 4 : 
  1607.     printword ( eqtb [ n ] ) ; 
  1608.     break ; 
  1609.       case 5 : 
  1610.     printword ( fontinfo [ n ] ) ; 
  1611.     break ; 
  1612.       case 6 : 
  1613.     printword ( savestack [ n ] ) ; 
  1614.     break ; 
  1615.       case 7 : 
  1616.     showbox ( n ) ; 
  1617.     break ; 
  1618.       case 8 : 
  1619.     {
  1620.       breadthmax = 10000 ; 
  1621.       depththresho = poolsize - poolptr - 10 ; 
  1622.       shownodelist ( n ) ; 
  1623.     } 
  1624.     break ; 
  1625.       case 9 : 
  1626.     showtokenlis ( n , 0 , 1000 ) ; 
  1627.     break ; 
  1628.       case 10 : 
  1629.     print ( n ) ; 
  1630.     break ; 
  1631.       case 11 : 
  1632.     checkmem ( n > 0 ) ; 
  1633.     break ; 
  1634.       case 12 : 
  1635.     searchmem ( n ) ; 
  1636.     break ; 
  1637.       case 13 : 
  1638.     {
  1639.       l = getint();
  1640.       printcmdchr ( n , l ) ; 
  1641.     } 
  1642.     break ; 
  1643.       case 14 : 
  1644.     for ( k = 0 ; k <= n ; k ++ ) 
  1645.     print ( buffer [ k ] ) ; 
  1646.     break ; 
  1647.       case 15 : 
  1648.     {
  1649.       fontinshortd = 0 ; 
  1650.       shortdisplay ( n ) ; 
  1651.     } 
  1652.     break ; 
  1653.       case 16 : 
  1654.     panicking = ! panicking ; 
  1655.     break ; 
  1656.       default : 
  1657.     print ( 63 ) ; 
  1658.     break ; 
  1659.       } 
  1660.     } 
  1661.   } 
  1662. } 
  1663. #endif /* DEBUG */
  1664. texbody () { /* 1 9998 9999 */ r_texbody 
  1665.   integer bufindx ; 
  1666. /* printf("eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1667.   history = 3 ; 
  1668.   setpaths () ; 
  1669.   if ( readyalready == 314159 ) 
  1670.   goto lab1 ; 
  1671.   bad = 0 ; 
  1672.   if ( ( halferrorlin < 30 ) || ( halferrorlin > errorline - 15 ) ) 
  1673.   bad = 1 ; 
  1674.   if ( maxprintline < 60 ) 
  1675.   bad = 2 ; 
  1676.   if ( dvibufsize % 8 != 0 ) 
  1677.   bad = 3 ; 
  1678.   if ( 1100 > memtop ) 
  1679.   bad = 4 ; 
  1680.   if ( 2551 > 3000 ) 
  1681.   bad = 5 ; 
  1682.   if ( maxinopen >= 128 ) 
  1683.   bad = 6 ; 
  1684.  
  1685. #ifdef INITEX
  1686.   if ( ( memmin != 0 ) || ( memmax != memtop ) ) 
  1687.   bad = 10 ; 
  1688. #endif /* INITEX */
  1689.   if ( ( memmin > 0 ) || ( memmax < memtop ) ) 
  1690.   bad = 10 ; 
  1691.   if ( ( 0 > 0 ) || ( 255 < 127 ) ) 
  1692.   bad = 11 ; 
  1693.   if ( ( 0 > 0 ) || ( 65535L < 32767 ) ) 
  1694.   bad = 12 ; 
  1695.   if ( ( 0 < 0 ) || ( 255 > 65535L ) ) 
  1696.   bad = 13 ; 
  1697.   if ( ( memmin < 0 ) || ( memmax >= 65535L ) || ( - 0 - memmin > 65536L ) ) 
  1698.   bad = 14 ; 
  1699.   if ( ( 0 < 0 ) || ( fontmax > 255 ) ) 
  1700.   bad = 15 ; 
  1701.   if ( fontmax > 256 ) 
  1702.   bad = 16 ; 
  1703.   if ( ( savesize > 65535L ) || ( maxstrings > 65535L ) ) 
  1704.   bad = 17 ; 
  1705.   if ( bufsize > 65535L ) 
  1706.   bad = 18 ; 
  1707.   if ( 255 < 255 ) 
  1708.   bad = 19 ; 
  1709.   if ( 7621 > 65535L ) 
  1710.   bad = 21 ; 
  1711.   if ( 9 > filenamesize ) 
  1712.   bad = 31 ; 
  1713.   if ( 2 * 65535L < memtop - memmin ) 
  1714.   bad = 41 ; 
  1715.   if ( bad > 0 ) 
  1716.   {
  1717.     fprintf( output , "%s%s%ld\n",  "Ouch---my internal constants have been clobbered!" ,     "---case " , bad ) ; 
  1718.     goto lab9999 ; 
  1719.   } 
  1720. /*printf(" initialize eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1721.   initialize () ; 
  1722.  
  1723. #ifdef INITEX
  1724. /*printf(" getstring eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1725.  
  1726.   if ( ! getstringsst () ) 
  1727.   goto lab9999 ; 
  1728. /*printf("initprim eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1729.   initprim () ; 
  1730. /*printf(" after initprim eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1731.  
  1732. #endif /* INITEX */
  1733.   readyalready = 314159 ; 
  1734.   lab1: selector = 17 ; 
  1735.   tally = 0 ; 
  1736.   termoffset = 0 ; 
  1737.   fileoffset = 0 ; 
  1738.   Fputs( output ,  "This is TeX, C Version 2.9" ) ; 
  1739.   if ( formatident == 0 ) 
  1740.   fprintf( output , "%s\n",  " (no format preloaded)" ) ; 
  1741.   else { 
  1742.     print ( formatident ) ; 
  1743.     println () ; 
  1744.   } 
  1745. /*printf("termflush eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1746.   termflush ( output ) ; 
  1747.   jobname = 0 ; 
  1748.   nameinprogre = false ; 
  1749.   outputfilena = 0 ; 
  1750.   {
  1751.     {
  1752.       inputptr = 0 ; 
  1753.       maxinstack = 0 ; 
  1754.       inopen = 0 ; 
  1755.       maxbufstack = 0 ; 
  1756.       paramptr = 0 ; 
  1757.       maxparamstac = 0 ; 
  1758.       bufindx = bufsize ; 
  1759.       do { buffer [ bufindx ] = 0 ; 
  1760.     decr ( bufindx ) ; 
  1761.       } while ( ! ( bufindx == 0 ) ) ; 
  1762.       scannerstatu = 0 ; 
  1763.       warningindex = 0 ; 
  1764.       first = 1 ; 
  1765.       curinput .statefield = 33 ; 
  1766.       curinput .startfield = 1 ; 
  1767.       curinput .indexfield = 0 ; 
  1768.       line = 0 ; 
  1769.       curinput .namefield = 0 ; 
  1770.       forceeof = false ; 
  1771.       alignstate = 1000000 ; 
  1772.       if ( ! initterminal () ) 
  1773.       goto lab9999 ; 
  1774.       curinput .limitfield = last ; 
  1775.       first = last + 1 ; 
  1776.     } 
  1777.     if ( ( formatident == 0 ) || ( buffer [ curinput .locfield ] == 38 ) ) 
  1778.     {
  1779.       if ( formatident != 0 ) 
  1780.       initialize () ; 
  1781.       if ( ! openfmtfile () ) 
  1782.       goto lab9999 ; 
  1783.       if ( ! loadfmtfile () ) 
  1784.       {
  1785.     wclose ( fmtfile ) ; 
  1786.     goto lab9999 ; 
  1787.       } 
  1788.       wclose ( fmtfile ) ; 
  1789.       while ( ( curinput .locfield < curinput .limitfield ) && ( buffer [ 
  1790.       curinput .locfield ] == 32 ) ) incr ( curinput .locfield ) ; 
  1791.     } 
  1792. /*printf("eqtb a3 %lx %lx\n",(long)zeqtb,(long)eqtb);*/
  1793.     if ( ( eqtb [ 5315 ] .cint < 0 ) || ( eqtb [ 5315 ] .cint > 127 ) ) 
  1794.     decr ( curinput .limitfield ) ; 
  1795.     else buffer [ curinput .limitfield ] = eqtb [ 5315 ] .cint ; 
  1796.     dateandtime ( eqtb [ 5287 ] .cint , eqtb [ 5288 ] .cint , eqtb [ 5289 ] 
  1797.     .cint , eqtb [ 5290 ] .cint ) ; 
  1798.     magicoffset = strstart [ 745 ] - 9 * 16 ; 
  1799.     if ( interaction == 0 ) 
  1800.     selector = 16 ; 
  1801.     else selector = 17 ; 
  1802.     if ( ( curinput .locfield < curinput .limitfield ) && ( eqtb [ 4627 + 
  1803.     buffer [ curinput .locfield ] ] .hh .v.RH != 0 ) ) 
  1804.     startinput () ; 
  1805.   } 
  1806.   initstrptr = strptr ; 
  1807.   initpoolptr = poolptr ; 
  1808.   history = 0 ; 
  1809.   maincontrol () ; 
  1810.   finalcleanup () ; 
  1811.   lab9998: closefilesan () ; 
  1812.   lab9999: { 
  1813.     termflush ( output ) ; 
  1814.     readyalready = 0 ; 
  1815.     if ( ( history != 0 ) && ( history != 1 ) ) 
  1816.     uexit ( 1 ) ; 
  1817.     else uexit ( 0 ) ; 
  1818.   } 
  1819. } 
  1820.